// currently used as a base for special scripts


beginobjectscript; // talking object

variables;
	short last_abil;
short effect_type;
short duration;

body;

beginstate INIT_STATE;
	set_obj_act_at_dist(ME,1);
	last_abil = get_current_tick();
	break;

beginstate DEAD_STATE;
	break;

beginstate START_STATE; 
	if (tick_difference(last_abil,get_current_tick()) > 0) {
		last_abil = get_current_tick();

		if (char_ok(5625) == FALSE) 
			end();
		
		//if (difficulty() < 2) 
		//	effect_type = 1;
		//	else
		effect_type = 4;

//print_num(1000 + gf(2,26));
		
		duration = 2;

			
		if (get_memory_cell(0) == 0) {
		if (gf(56,20) == 2)
			radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,2);
		else if (gf(56,20) == 3)
			radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,3);
		else if (gf(56,20) == 4)
			radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,2);

		else radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,1);
			}
			else {
		if (gf(56,20) == 5)
			radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,2);
		else if (gf(56,20) == 6)
			radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,3);
		else if (gf(56,20) == 7)
			radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,2);

		else radiate_ground_effect(my_loc_x(),my_loc_y(),effect_type,1,1);
				}
			
		}
	break;

beginstate USE_STATE;
	print_str_color("The vat is full of caustic goo. There's no way to seal the lid, alas.",2);
break;
